%%% ====================================================================
%%% @LaTeX-style-file{
%%%    author    = "Enrico Bertolazzi",
%%%    version   = "1.1",
%%%    date      = "31-MAY-2001",
%%%    filename  = "easy.sty",
%%%    address   = "Dipartimento di Ingeneria Meccanica e Strutturale,
%%%                 Trento University,
%%%                 Via Mesiano 77, Trento, Italy",
%%%    FAX       = "+39 (461) 882599",
%%%    email     = "enrico.bertolazzi@ing.unitn.it (Internet)",
%%%    supported = "yes. Please send comments via E-mail",
%%%
%%% ====================================================================
%%%
%%% INSTALLATION:
%%%   Put this file where your TeX looks for inputs.
%%%
%%% DOCUMENTATION:
%%%   no documentation
%%%
%%%   Copyright 1999 Enrico Bertolazzi
%%%
%%%   This program can be redistributed and/or modified under the terms
%%%   of the LaTeX Project Public License Distributed from CTAN
%%%   archives in directory macros/latex/base/lppl.txt; either
%%%   version 1 of the License, or any later version.
%%%
%%% }
%%% ====================================================================%%%
%%%       ___    ____  ___   _   _         ___    ____  ___   _   _     %%%
%%%      /   \  /     /   \  \  /         /   \  /     /   \  \  /      %%%
%%%     /____/ /__   /____/   \/         /____/ /__   /____/   \/       %%%
%%%    /   \  /     /  \      /         /   \  /     /  \      /        %%%
%%%   /____/ /____ /    \    /         /____/ /____ /    \    /         %%%
%%% ====================================================================%%%
%%%
%%% v1.0 30-AUG-1999 
%%% v1.1 31-MAY-2001 changed \@roman with \romannumeral (thanks to Claudio Beccari) 
%%%                  added \easydashlen \easydashsep

\def\filedate{2001/05/31}
\def\fileversion{v1.1}
\typeout{Document Style `easy'  \fileversion\space<\filedate>.}
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{easy}[\filedate\space\fileversion]

\def\@easy@disable@space{\catcode`\ =9\endlinechar=-1}
\def\@easy@enable@space{\catcode`\ =10\endlinechar=`\^^M}

\@easy@disable@space

\newcount\@easy@level\@easy@level=\z@\relax
\newcount\@easy@ncol
\newcount\@easy@nrow
\newcount\@easy@cnt

%
% define boxes for internal computation.
%
\@tempcnta=8\relax
\@whilenum\@tempcnta>\z@\do{
   \expandafter\global\expandafter\newbox\csname @easy@box\romannumeral\@tempcnta\endcsname
   \expandafter\global\expandafter\newdimen\csname @easy@minx\romannumeral\@tempcnta\endcsname
   \expandafter\global\expandafter\newdimen\csname @easy@miny\romannumeral\@tempcnta\endcsname
   \expandafter\global\expandafter\newdimen\csname @easy@maxx\romannumeral\@tempcnta\endcsname
   \expandafter\global\expandafter\newdimen\csname @easy@maxy\romannumeral\@tempcnta\endcsname
   \advance\@tempcnta by\m@ne
}
%
% define dimens for internal computation.
%
\@tempcnta=30\relax
\@whilenum\@tempcnta>\z@\do{%
   \expandafter\global\expandafter\newdimen\csname @easy@hsize\romannumeral\@tempcnta\endcsname%
   \expandafter\global\expandafter\newdimen\csname @easy@vsize\romannumeral\@tempcnta\endcsname%
   \advance\@tempcnta by\m@ne
}

\def\@easy@ifnextchar#1#2#3{%
  \let\reserved@d=#1%
  \def\reserved@a{#2}
  \def\reserved@b{#3}%
  \futurelet\@let@token\@easy@ifnch}
\def\@easy@ifnch{%
  \ifx\@let@token\reserved@d
    \let\reserved@c\reserved@a
  \else
    \let\reserved@c\reserved@b
  \fi
  \reserved@c}

\def\@easy@edef(#1)#2{\expandafter\edef\csname#1\endcsname{#2}}
\def\@easy@xdef(#1)#2{\expandafter\xdef\csname#1\endcsname{#2}}
\def\@easy@gdef(#1)#2{\expandafter\gdef\csname#1\endcsname{#2}}
\def\@easy@def(#1)#2{\expandafter\def\csname#1\endcsname{#2}}

\def\@easy@let(#1)#2{%
    \expandafter\let\csname#1\expandafter\endcsname\csname#2\endcsname} 
\def\@easy@glet(#1)#2{%
    \expandafter\global\expandafter\let\csname#1\expandafter\endcsname\csname#2\endcsname} 

% \@easy@rotate{\macro}
% rotate the contens of a macro, for example:
% 
% \def\macro{abc}
% \@easy@rotate{\macro}
% 
% now macro contains {bca} 
\def\@easy@rotate@#1#2\end{#2#1}%
\def\@easy@rotate#1{\xdef#1{\expandafter\@easy@rotate@#1\end}}%

% \@easy@firstchar{string}
% get the first character of a string.
% If the string is empty return `-'
\def\@easy@firstchar@#1#2\end{#1}%
\def\@easy@firstchar#1{\expandafter\@easy@firstchar@#1-\end}%

\def\@easy@parse@cols#1{%
   \gdef\@easy@list@align{lrc}%
   \global\let\@easy@rules\@empty%
   \global\let\@easy@align\@empty%
   \expandafter\@easy@parsea#1\end%
   \@easy@xdef(@easy@col@align\romannumeral\@easy@level){`\@easy@align}%
   \@easy@xdef(@easy@col@rules\romannumeral\@easy@level){`\@easy@rules}%
}

\def\@easy@parse@rows#1{%
   \gdef\@easy@list@align{tbc}%
   \global\let\@easy@rules\@empty%
   \global\let\@easy@align\@empty%
   \expandafter\@easy@parsea#1\end%
   \@easy@xdef(@easy@row@align\romannumeral\@easy@level){`\@easy@align}%
   \@easy@xdef(@easy@row@rules\romannumeral\@easy@level){`\@easy@rules}%
}

% \@easy@list@align{string}
% Parse a string with alignement definitions and separate
% rules definition.
% \@easy@list@align muist contains the possible alignments.
% the rules coding is fixed as:  
% @ => no rule
% . => dotted rule
% ; => dot-dash rule
% : => dased rule
% | => solid rule
% 0123456789 => solid rule 0 => thin 9 => thick
% 
% The output are
% \@easy@align: which will contain alignement string
% \@easy@rules: which will contain rule definition string
% 
% for example
% \def\@easy@list@align{rcl}
% \@easy@list@align{|r;cl}
% results in
% \@easy@align => rcl
% \@easy@rules => |;@@
%
\def\@easy@parsea{\futurelet\@tempb\@easy@parseb}
\def\@easy@parseb{%parse column separator
    \def\next{\xdef\@easy@rules{@\@easy@rules}\@easy@parsec}%
    \@tfor\@tempa:=@.;:|0123456789\do{%
         \expandafter\ifx\expandafter\@tempb\@tempa%
             \xdef\@easy@rules{\@tempa\@easy@rules}
             \def\next##1{\@easy@parsec}%
             \@break@tfor%
         \fi%
    }
    \next}

\def\@easy@parsec{\futurelet\@tempb\@easy@parsed}
\def\@easy@parsed{% parse column alignment
    \def\next{\@easy@parse@error}%
    \ifx\@tempb\end%
       \def\next##1{}% eat end
    \else
       \expandafter\@tfor\expandafter\@tempa\expandafter:\expandafter=\@easy@list@align\do{%
          \expandafter\ifx\expandafter\@tempb\@tempa%
              \xdef\@easy@align{\@tempa\@easy@align}%
              \def\next##1{\@easy@parsea}%
              \@break@tfor%
          \fi%
       }
    \fi%
    \next}

\@easy@enable@space
\def\@easy@parse@error{%
\PackageWarningNoLine{`easy'}%
{unrecognized command \meaning\@tempb \space on line \the\inputlineno}}
\@easy@disable@space

\newdimen\@easy@dash@len \@easy@dash@len=5pt\relax
\newdimen\@easy@dash@sep \@easy@dash@sep=2pt\relax

\def\easydashlen#1{\@easy@dash@len=#1\relax}
\def\easydashsep#1{\@easy@dash@sep=#1\relax}

% \@easy@h@dash{height}{width}{sep}
%    +----+     |
% #1 |    |     |
%    +----+     |
%      #2   #3
% \@easy@v@dash{width}{height}{sep}
%      #1
%    +----+
% #2 |    |
%    +----+
% #3
%    -----
\def\@easy@h@dash#1#2#3{\hbox{\vrule\@width#2\@height#1\@depth\z@\kern#3}}
\def\@easy@v@dash#1#2#3{\vbox{\hrule\@width#1\@height#2\@depth\z@\kern#3}}
% \@easy@h@dashes{totalwidth}{height}{sep1}{width}{sep2}
%        |-------- totalwidth --------- | 
%        +---+        +----------+      |
% height |   |        |          |      |
%        +---+        +----------+      |
%       height  sep1     width     sep2
%
\def\@easy@h@dashes#1#2#3#4#5{%
   \setbox\@tempboxa\hbox{}%
   \@tempdima=#1\relax%
   \@tempcnta=\@ne%
   \loop\advance\@tempcnta by\@ne%
      \ifodd\@tempcnta\setbox0\@easy@h@dash{#2}{#2}{#3}\else\setbox0\@easy@h@dash{#2}{#4}{#5}\fi%
      \@tempdimb=\wd\@tempboxa\relax\advance\@tempdimb by\wd0\relax
   \ifdim\@tempdimb<\@tempdima\relax%
      \setbox\@tempboxa\hbox{\unhbox\@tempboxa\unhbox0}%
   \repeat%
   \advance\@tempdima by -\wd\@tempboxa\relax%
   \@tempdimb=\ht\@tempboxa\relax%
   \hbox{\unhbox\@tempboxa\vrule\@width\@tempdima\@height\@tempdimb\@depth\z@}
}  
\def\@easy@v@dashes#1#2#3#4#5{%
   \setbox\@tempboxa\vbox{}%
   \@tempdima=#1\relax%
   \@tempcnta=\@ne%
   \loop\advance\@tempcnta by\@ne%
      \ifodd\@tempcnta\setbox0\@easy@v@dash{#2}{#2}{#3}\else\setbox0\@easy@v@dash{#2}{#4}{#5}\fi%
      \@tempdimb=\ht\@tempboxa\relax\advance\@tempdimb by\ht0\relax%
   \ifdim\@tempdimb<\@tempdima\relax%
      \setbox\@tempboxa\vbox{\unvbox\@tempboxa\unvbox0}%
   \repeat%
   \advance\@tempdima by -\ht\@tempboxa\relax%
   \@tempdimb=\wd\@tempboxa\relax%
   \vbox{\unvbox\@tempboxa\hrule\@width\@tempdimb\@height\@tempdima\@depth\z@}
}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\@easy@hdots(#1,#2){\@easy@h@dashes{#1}{#2}\@easy@dash@sep\z@\z@}
\def\@easy@vdots(#1,#2){\@easy@v@dashes{#1}{#2}\@easy@dash@sep\z@\z@}

\def\@easy@hdashes(#1,#2){\@easy@h@dashes{#1}{#2}\z@\@easy@dash@len\@easy@dash@sep}
\def\@easy@vdashes(#1,#2){\@easy@v@dashes{#1}{#2}\z@\@easy@dash@len\@easy@dash@sep}

\def\@easy@hdotdash(#1,#2){\@easy@h@dashes{#1}{#2}\@easy@dash@sep\@easy@dash@len\@easy@dash@sep}
\def\@easy@vdotdash(#1,#2){\@easy@v@dashes{#1}{#2}\@easy@dash@sep\@easy@dash@len\@easy@dash@sep}

\def\@easy@hrule(#1,#2){\hbox{\vrule\@width#1\@height#2\@depth\z@}}
\def\@easy@vrule(#1,#2){\vbox{\hrule\@width#2\@height#1\@depth\z@}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\@easy@h@draw#1#2{%
   \expandafter\ifx#1.\@easy@hdots(#2,\@easy@size@dash)\else%
   \expandafter\ifx#1;\@easy@hdotdash(#2,\@easy@size@dash)\else%
   \expandafter\ifx#1:\@easy@hdashes(#2,\@easy@size@dash)\else%
   \expandafter\ifx#1|\@easy@hrule(#2,\@easy@size@rule)\else%
   \expandafter\ifx#1-\@easy@hrule(#2,\@easy@size@rule)\else%
   \expandafter\ifx#1@\else%
      \@easy@set@size{#1}
      \@easy@hrule(#2,\@tempdima)%
   \fi\fi\fi\fi\fi\fi%
}

\def\@easy@v@draw#1#2{%
   \expandafter\ifx#1.\@easy@vdots(#2,\@easy@size@dash)\else%
   \expandafter\ifx#1;\@easy@vdotdash(#2,\@easy@size@dash)\else%
   \expandafter\ifx#1:\@easy@vdashes(#2,\@easy@size@dash)\else%
   \expandafter\ifx#1|\@easy@vrule(#2,\@easy@size@rule)\else%
   \expandafter\ifx#1@\else
      \@easy@set@size{#1}
      \@easy@vrule(#2,\@tempdima)%
   \fi\fi\fi\fi\fi%
}

\def\@easy@set@size#1{
  \@tempdima=\@easy@size@rule\relax
  \ifcase\number#1
     \divide\@tempdima5
  \or\divide\@tempdima4
  \or\divide\@tempdima3
  \or\divide\@tempdima2
  \or\divide\@tempdima1
  \or\multiply\@tempdima2
  \or\multiply\@tempdima3
  \or\multiply\@tempdima4
  \or\multiply\@tempdima5
  \or\multiply\@tempdima6
  \fi
}

\def\@easy@kern@size#1{%
   \expandafter\ifx#1.\@tempdima=\@easy@size@dash\else%
   \expandafter\ifx#1;\@tempdima=\@easy@size@dash\else%
   \expandafter\ifx#1:\@tempdima=\@easy@size@dash\else%
   \expandafter\ifx#1|\@tempdima=\@easy@size@rule\else%
   \expandafter\ifx#1-\@tempdima=\@easy@size@rule\else%
   \expandafter\ifx#1@\@tempdima=\z@\else\@easy@set@size{#1}%
   \fi\fi\fi\fi\fi\fi%
}

\def\@easy@kern#1{\@easy@kern@size{#1}\kern\@tempdima}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \@easy@hbox[halign,valign,width,heigth,sep,content]
%
\def\@easy@hbox[#1,#2,#3,#4,#5,#6]{%
   \hbox{\vbox to#4{\expandafter\ifx#2t\else\vss\fi%
   \kern#5\hbox to#3{%
   \expandafter\ifx#1l\else\hss\fi%
   \kern#5\vphantom{\copy#6}\unhbox#6\kern#5%
   \expandafter\ifx#1r\else\hss\fi}%
   \kern#5\expandafter\ifx#2b\else\vss\fi}}}
%
% evaluate dimensions of box of boxes, it return
% \@easy@vsize max heigth + \@easy@spread
% \@easy@hsize max width  + \@easy@spread
%
\def\@easy@evaldim{%
    \@tempcnta=30\relax
    \@whilenum\@tempcnta>\z@\do{%
        \global\@nameuse{@easy@hsize\romannumeral\@tempcnta}=\z@%
        \global\@nameuse{@easy@vsize\romannumeral\@tempcnta}=\z@%
        \advance\@tempcnta by \m@ne}%
	\setbox0\vbox{%
 		\unvcopy\@easy@mainbox%
		\global\@easy@nrow=\z@%
 		\loop%
			\unskip\global\setbox\@ne\lastbox%
		\ifhbox\@ne%
 		    \global\advance\@easy@nrow\@ne%%%%
		    \global\@easy@ncol=\z@
		            \@tempdima\dp\@ne\relax
		    \advance\@tempdima\ht\@ne\relax
 		    \advance\@tempdima\@easy@spread\relax
 		    \advance\@tempdima\@easy@spread\relax
            \global\@nameuse{@easy@vsize\romannumeral\@easy@nrow}=\@tempdima%
			\setbox0=\hbox{%
				\unhbox\@ne%
				\loop%
                    \unskip\global\setbox\tw@=\lastbox%
				\ifhbox\tw@%
					\global\advance\@easy@ncol\@ne%%%%
		                    \@tempdima\wd\tw@\relax
		            \advance\@tempdima\@easy@spread\relax
		            \advance\@tempdima\@easy@spread\relax
		            \ifdim\@tempdima>\@nameuse{@easy@hsize\romannumeral\@easy@ncol}\relax
		                \global\@nameuse{@easy@hsize\romannumeral\@easy@ncol}=\@tempdima%
		            \fi%
				\repeat%
			}%
		\repeat%
	}%
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\@easy@loop@cols#1{\@tempcnta=\@easy@ncol\relax%
\@whilenum\@tempcnta>\z@\do{#1\advance\@tempcnta by\m@ne}}

\def\@easy@loop@rows#1{\@tempcnta=\@easy@nrow\relax%
\@whilenum\@tempcnta>\z@\do{#1\advance\@tempcnta by\m@ne}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\@easy@balance@cols#1{%
    \@tempdima=#1\relax%
    \@easy@loop@cols{\@tempdimb=\@nameuse{@easy@hsize\romannumeral\@tempcnta}\relax
                     \ifdim\@tempdima<\@tempdimb\relax\@tempdima=\@tempdimb\fi}
    \@easy@loop@cols{\global\@nameuse{@easy@hsize\romannumeral\@tempcnta}=\@tempdima\relax}
}

\def\@easy@balance@rows#1{%
    \@tempdima=#1\relax%
    \@easy@loop@rows{\@tempdimb=\@nameuse{@easy@vsize\romannumeral\@tempcnta}\relax
                     \ifdim\@tempdima<\@tempdimb\relax\@tempdima=\@tempdimb\fi}
    \@easy@loop@rows{\global\@nameuse{@easy@vsize\romannumeral\@tempcnta}=\@tempdima\relax}
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\@easy@balance@equalize#1{%
    \@tempdima=#1\relax%
    \@easy@loop@cols{\@tempdimb=\@nameuse{@easy@hsize\romannumeral\@tempcnta}\relax%
                     \ifdim\@tempdima<\@tempdimb\relax\@tempdima=\@tempdimb\fi}
    \@easy@loop@rows{\@tempdimb=\@nameuse{@easy@vsize\romannumeral\@tempcnta}\relax%
                     \ifdim\@tempdima<\@tempdimb\relax\@tempdima=\@tempdimb\fi}
    \@easy@loop@cols{\global\@nameuse{@easy@hsize\romannumeral\@tempcnta}=\@tempdima\relax}
    \@easy@loop@rows{\global\@nameuse{@easy@vsize\romannumeral\@tempcnta}=\@tempdima\relax}
}

\def\@easy@balance@row@col{%
    \expandafter\ifx\@easy@balance c\@easy@balance@cols{\@easy@minx}\else%
    \expandafter\ifx\@easy@balance r\@easy@balance@rows{\@easy@miny}\else%
    \expandafter\ifx\@easy@balance b\@easy@balance@cols{\@easy@minx}\@easy@balance@rows{\@easy@miny}\else%
    \expandafter\ifx\@easy@balance e\@easy@balance@equalize{\@easy@minx}%
    \else% no balancing
        \@tempdima=\@easy@minx\relax
        \@tempdimb=\@easy@miny\relax
        \@easy@loop@cols{\ifdim\@tempdima>\@nameuse{@easy@hsize\romannumeral\@tempcnta}%
		                 \global\@nameuse{@easy@hsize\romannumeral\@tempcnta}=\@tempdima\fi}
        \@easy@loop@rows{\ifdim\@tempdimb>\@nameuse{@easy@vsize\romannumeral\@tempcnta}%
		                 \global\@nameuse{@easy@vsize\romannumeral\@tempcnta}=\@tempdimb\fi}
    \fi\fi\fi\fi%
%
    \ifdim\@easy@maxx>\z@
        \@tempdimc=\@easy@maxx\relax
        \loop
            \@easy@rotate\@easy@col@rules%
            \edef\@tempc{\@easy@firstchar\@easy@col@rules}%
        \expandafter\ifx\@tempc`\else
            \@easy@kern@size\@tempc
            \advance\@tempdimc by -\@tempdima\relax
        \repeat
        \@easy@loop@cols{\advance\@tempdimc by -\@nameuse{@easy@hsize\romannumeral\@tempcnta}\relax}
        \divide\@tempdimc by\@easy@ncol\relax
        \ifdim\@tempdimc>\z@
           \@easy@loop@cols{\global\advance\@nameuse{@easy@hsize\romannumeral\@tempcnta} by \@tempdimc\relax}
        \fi
    \fi
%
    \ifdim\@easy@maxy>\z@
        \@tempdimc=\@easy@maxy\relax
        \loop
            \@easy@rotate\@easy@row@rules%
            \edef\@tempc{\@easy@firstchar\@easy@row@rules}%
        \expandafter\ifx\@tempc`\else
            \@easy@kern@size\@tempc
            \advance\@tempdimc by -\@tempdima\relax
        \repeat
        \@easy@loop@rows{\advance\@tempdimc by -\@nameuse{@easy@vsize\romannumeral\@tempcnta}\relax}
        \divide\@tempdimc by\@easy@nrow\relax
        \ifdim\@tempdimc>\z@
           \@easy@loop@rows{\global\advance\@nameuse{@easy@vsize\romannumeral\@tempcnta} by \@tempdimc\relax}
        \fi
    \fi
 }

\def\@easy@buildbox{%
 	\setbox0=\vbox{%
  		\unvbox\@easy@mainbox%
  		\@easy@rotate\@easy@row@rules%
        \edef\@tempc{\@easy@firstchar\@easy@row@rules}%
 		\global\setbox\@easy@mainbox\vbox{\@easy@kern\@tempc}%
        \global\@easy@nrow=\z@%
		\loop%
            \unskip\global\setbox\@ne=\lastbox%
		\ifhbox\@ne%
            \global\advance\@easy@nrow\@ne%
            \@easy@rotate\@easy@row@rules%
            \@easy@rotate\@easy@row@align%
            \@easy@buildboxa%
            \edef\@tempc{\@easy@firstchar\@easy@row@rules}%
 		    \global\setbox\@easy@mainbox\vbox
 		    {\@easy@kern\@tempc\box\tw@\unvbox\@easy@mainbox}%
        \repeat
  		\@easy@rotate\@easy@row@rules% elim `
  		\@easy@rotate\@easy@row@align% elim `
    }
}

\def\@easy@buildboxa{%
    \setbox0\hbox{%	
        \unhbox\@ne%
  	    \@easy@rotate\@easy@col@rules%
        \edef\@tempc{\@easy@firstchar\@easy@col@rules}%
 		\global\setbox\tw@\hbox{\@easy@kern\@tempc}%
        \global\@easy@ncol=\z@%
		\loop%
             \unskip\global\setbox\@ne=\lastbox%
		\ifhbox\@ne%
             \global\advance\@easy@ncol\@ne%
  		     \@easy@rotate\@easy@col@rules%
  		     \@easy@rotate\@easy@col@align%
		     \edef\@tempa{\@easy@firstchar\@easy@col@align}%
		     \edef\@tempb{\@easy@firstchar\@easy@row@align}%
             \edef\@tempc{\@easy@firstchar\@easy@col@rules}%
 		     \global\setbox\tw@\hbox{%
 		           \@easy@kern\@tempc%
 		           \@easy@hbox[\@tempa,\@tempb,%
		                       \@nameuse{@easy@hsize\romannumeral\@easy@ncol},%
		                       \@nameuse{@easy@vsize\romannumeral\@easy@nrow},%
		                       \@easy@spread,\@ne]%
                   \unhbox\tw@}%
        \repeat
 		\@easy@rotate\@easy@col@rules% elim `
 		\@easy@rotate\@easy@col@align% elim `
    }
}

%%%%%%%%%%%%%%% Vertical lines %%%%%%%%%%%%%%%%%%
\def\@easy@vlines{%
     \@tempcntb=\z@%
     \@easy@rotate\@easy@col@rules%
     \edef\@tempc{\@easy@firstchar\@easy@col@rules}
	 \global\setbox\@ne\hbox{\@easy@v@draw\@tempc{\ht\@easy@mainbox}}%
     \loop%
         \advance\@tempcntb\@ne%
         \@easy@rotate\@easy@col@rules%
         \edef\@tempc{\@easy@firstchar\@easy@col@rules}%
     \expandafter\ifx\@tempc`\relax\else%
	     \global\setbox\@ne\hbox{%
	         \@easy@v@draw\@tempc{\ht\@easy@mainbox}
	         \kern\@nameuse{@easy@hsize\romannumeral\@tempcntb}
	         \unhbox\@ne}%
     \repeat%
}

%%%%%%%%%%%%%%% Horizontal lines %%%%%%%%%%%%%%%%%%
\def\@easy@hlines{%
     \@tempcntb=\z@%
     \@easy@rotate\@easy@row@rules%
     \edef\@tempc{\@easy@firstchar\@easy@row@rules}%
	 \global\setbox\tw@\vbox{\@easy@h@draw\@tempc{\wd\@easy@mainbox}}%
     \loop%
         \advance\@tempcntb\@ne%
         \@easy@rotate\@easy@row@rules%
         \edef\@tempc{\@easy@firstchar\@easy@row@rules}%
     \expandafter\ifx\@tempc`\relax\else%
	     \global\setbox\tw@\vbox{%
	         \@easy@h@draw\@tempc{\wd\@easy@mainbox}
	         \kern\@nameuse{@easy@vsize\romannumeral\@tempcntb}
	         \unvbox\tw@}%
     \repeat%
}


%%%%%%%%%%%%%%% PATH COMMANDS %%%%%%%%%%%%%%%

\def\addpath#1{\g@addto@macro\@easy@path{[#1]}}

\def\@easy@dopath{%adjust size boxex
     \global\setbox\thr@@\hbox{}
     \@tempcntb=\z@%
     \@easy@rotate\@easy@col@rules%
     \edef\@tempc{\@easy@firstchar\@easy@col@rules}
     \@easy@kern@size\@tempc%
     \loop%
         \advance\@tempcntb\@ne%
         \global\advance\@nameuse{@easy@hsize\romannumeral\@tempcntb}\@tempdima
         \@easy@rotate\@easy@col@rules%
         \edef\@tempc{\@easy@firstchar\@easy@col@rules}%
     \expandafter\ifx\@tempc`\relax\else%
         \@easy@kern@size\@tempc
         \divide\@tempdima\tw@
         \global\advance\@nameuse{@easy@hsize\romannumeral\@tempcntb}\@tempdima
     \repeat%
     \global\advance\@nameuse{@easy@hsize\romannumeral\@tempcntb}\@tempdima
%
     \@tempcntb=\z@%
     \@easy@rotate\@easy@row@rules%
     \edef\@tempc{\@easy@firstchar\@easy@row@rules}
     \@easy@kern@size\@tempc%
     \loop%
         \advance\@tempcntb\@ne%
         \global\advance\@nameuse{@easy@vsize\romannumeral\@tempcntb}\@tempdima
         \@easy@rotate\@easy@row@rules%
         \edef\@tempc{\@easy@firstchar\@easy@row@rules}%
     \expandafter\ifx\@tempc`\relax\else%
         \@easy@kern@size\@tempc
         \divide\@tempdima\tw@
         \global\advance\@nameuse{@easy@vsize\romannumeral\@tempcntb}\@tempdima
     \repeat%
     \global\advance\@nameuse{@easy@vsize\romannumeral\@tempcntb}\@tempdima
     \expandafter\@easy@do@path@parse\@easy@path`}

\def\@easy@do@path@parse{\futurelet\@tempa\@easy@do@path@parsea}
\def\@easy@do@path@parsea{%
    \ifx`\@tempa\expandafter\@gobble
    \else\expandafter\@easy@do@path\fi}

\def\@easy@do@path[(#1,#2,#3)#4]{%
    \xdef\@easy@k@line{#3}%
    \global\@tempcnta\@easy@ncol%
    \global\advance\@tempcnta-#1%
    \global\@tempcntb#2%
    \expandafter\@easy@do@path@path#4`\@easy@do@path@parse}

\def\@easy@do@path@path{\futurelet\@tempa\@easy@do@path@patha}
\def\@easy@do@path@patha{%
    \def\next##1{\@easy@do@path@path}
    \ifx r\@tempa
        \ifnum\@tempcnta=\z@\global\@tempcnta\@easy@ncol\fi
        \global\advance\@tempcnta\m@ne
        \@easy@add@h@tobox
        \global\advance\@tempcnta\m@ne
    \else\ifx l\@tempa
        \@easy@add@h@tobox
    \else\ifx u\@tempa
        \@easy@add@v@tobox
    \else\ifx d\@tempa
        \ifnum\@tempcntb=\z@\global\@tempcntb\@easy@nrow\fi
        \global\advance\@tempcntb\m@ne
        \@easy@add@v@tobox
        \global\advance\@tempcntb\m@ne
    \else\def\next##1{}
    \fi\fi\fi\fi\next}

\def\@easy@add@h@tobox{%
    \ifnum\@tempcnta=\@easy@ncol\global\@tempcnta\z@\fi
    \global\setbox\thr@@\hbox{%
       \rlap{\box\thr@@}
       \@easy@ycoord{\@tempcntb}\raise\@tempdimc
       \hb@xt@\z@{%
             \@easy@xcoord{\@tempcnta}\kern\@tempdimc
             \global\advance\@tempcnta\@ne
             \kern-\@nameuse{@easy@hsize\romannumeral\@tempcnta}
             \@easy@h@draw\@easy@k@line{\@nameuse{@easy@hsize\romannumeral\@tempcnta}}\hss}
    }
}

\def\@easy@add@v@tobox{%
    \ifnum\@tempcntb=\@easy@nrow\global\@tempcntb\z@\fi
    \global\setbox\thr@@\hbox{%
       \rlap{\box\thr@@}
       \@easy@ycoord{\@tempcntb}\raise\@tempdimc
       \hb@xt@\z@{%
             \@easy@xcoord{\@tempcnta}\kern\@tempdimc
             \global\advance\@tempcntb\@ne
             \@easy@v@draw\@easy@k@line{\@nameuse{@easy@vsize\romannumeral\@tempcntb}}\hss}
    }
}
    
\def\@easy@xcoord#1{%
     \@tempdimc=\wd\@easy@mainbox
     \@easy@cnt=\z@
     \@whilenum\@easy@cnt<#1\do{%
          \advance\@easy@cnt\@ne
          \advance\@tempdimc-\@nameuse{@easy@hsize\romannumeral\@easy@cnt}
     }}

\def\@easy@ycoord#1{%
     \@tempdimc=\z@\@easy@cnt=\z@
     \@whilenum\@easy@cnt<#1\do{%
          \advance\@easy@cnt\@ne
          \advance\@tempdimc\@nameuse{@easy@vsize\romannumeral\@easy@cnt}
     }}

\@easy@enable@space

\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
